PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Library Hyper Card Templates/Open Stack/Acquisitions/background_2650.txt

Text File | 1987-12-04 | 18.0 KB | 782 lines

-- background: 2650 from stack: in
-- bmap block id: 3599
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
----------------------- Open Stack‚Ñ¢ Copyright 1987----------------------
----------------------- by the Walking Shadow Press --------------------
on openCard
  global bookNumber,fieldList, autoNumbering,tentativeBook

  if (script of this card is not empty) and (autoNumbering is true) then
    if field "Book Number" is empty then
      put bookNumber into field "Book Number"
      put true into tentativeBook
    end if
  end if

  put field "Today's Date" into todayDate
  if todayDate is empty then
    put the short date into field "Today's Date"
  end if
end openCard

on closeCard
  global bookNumber,fieldList,tentativeBook

  if fieldList is not empty then
    set cursor to 4
    if tentativeBook is true then
      put quote&"Book Number""e&"," after fieldList
      add 1 to bookNumber
      put false into tentativeBook
    end if

    put char 1 to (length(fieldList) - 1) of fieldList into fieldList
    put fieldList into tempFieldList
    put 0 into index

    put name of target into targName
    repeat until tempFieldList is empty
      add 1 to index
      put item 1 of tempFieldList into fldTemp
      put "put field "&fldTemp&" of "&targName& " into var"&index into cmdLine
      do cmdLine
      put empty into item 1 of tempFieldList
      put empty into char 1 of tempFieldList -- rid leading comma.
    end repeat

    set lockScreen to true
    set lockMessages to true
    push card
    ----------------------- Circulation Card --------------------------
    do line 5 of script of this card

    put empty into targetFieldList
    repeat with indx = 1 to the number of fields
      put (word 3 of name of field indx) & "," after targetFieldList
    end repeat

    repeat with indx = 1 to index
      put item indx of fieldList into tempItem
      if tempItem is in targetFieldList then
        put "put var"&indx&" into field "&tempItem into cmdLine
        do cmdLine
      end if
    end repeat

    ---------------------- Catalog Screen -------------------------
    do line 8 of script of this card

    put empty into targetFieldList
    repeat with indx = 1 to the number of fields
      put (word 3 of name of field indx) & "," after targetFieldList
    end repeat

    repeat with indx = 1 to index
      put item indx of fieldList into tempItem
      if tempItem is in targetFieldList then
        put "put var"&indx&" into field "&tempItem into cmdLine
        do cmdLine
      end if
    end repeat
    ---------------------- Label Screen -------------------------
    do line 11 of script of this card

    put empty into targetFieldList
    repeat with indx = 1 to the number of fields
      put (word 3 of name of field indx) & "," after targetFieldList
    end repeat

    repeat with indx = 1 to index
      put item indx of fieldList into tempItem
      if tempItem is in targetFieldList then
        put "put var"&indx&" into field "&tempItem into cmdLine
        do cmdLine
      end if
    end repeat
    send innerReplication to this card
    ------------------------------------------------------------------
    pop card
    set lockMessages to false
    set lockScreen to false
  end if

  if tentativeBook is true then
    put empty into field "Book Number"
    put false into tentativeBook
  end if

  put empty into fieldList
end closeCard

on newField
  global fieldScript
  put name of target into targName
  if word 1 of targName is "bkgnd" then
    ask "Name of field?"
    put it into tmpFldName
    if tmpFldName is empty then
      answer "Unnamed; field will not copy to other stacks"
    else
      set name of targName to tmpFldName
      set script of targName to fieldScript
    end if
  end if
end newField

on doMenu parm
  if name of this card is name of target then
    if parm is "New Card" then
      mkNewCard
    else
      if parm is "Delete Card" then
        delCard
      else
        if parm is "New Field" then
          set editBkgnd to true
          pass doMenu
        else
          if parm is "Open Stack..." then
            set cursor to 4
            quit
            pass doMenu
          else
            if parm is "Cut Card" then
              -- cut card conditional
            else
              if parm is "Paste Card" then
                --
              else
                pass doMenu
              end if
            end if
          end if
        end if
      end if
    end if
  else
    pass doMenu
  end if
end doMenu

--------------------- End Open Stack Routine ---------------------



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=252 top=316 right=339 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=201 top=317 right=340 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 55 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=89 top=88 right=121 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Author
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 36 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=69 top=52 right=87 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Title
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 57 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=124 right=141 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Publisher
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 51 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=298 top=125 right=141 bottom=361
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 21 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=55 top=205 right=221 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Price
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if

  put empty into field "total"
  add field "price" to field "total"
  add field "shipping" to field "total"
  add field "tax" to field "total"

end closeField


-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=198 top=205 right=221 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Shipping
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if

  put empty into field "total"
  add field "price" to field "total"
  add field "shipping" to field "total"
  add field "tax" to field "total"

end closeField


-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=294 top=204 right=220 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Tax
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if

  put empty into field "total"
  add field "price" to field "total"
  add field "shipping" to field "total"
  add field "tax" to field "total"

end closeField


-- part 24 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=405 top=202 right=222 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Total
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=85 top=234 right=249 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date paid
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=259 top=233 right=249 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date returned
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 28 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=278 top=317 right=339 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Catalog Screen
----- HyperTalk script -----
on mouseUp
  goCat
end mouseUp


-- part 29 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=383 top=317 right=339 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Circulation Card
----- HyperTalk script -----
on mouseUp
  goCirc
end mouseUp


-- part 31 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=216 top=276 right=299 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help!
----- HyperTalk script -----
on mouseUp
  go to stack "Acquisitions Help"
end mouseUp



-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=350 top=164 right=180 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date ordered
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 33 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=350 top=182 right=198 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date received
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 45 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=500 top=330 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: der
----- HyperTalk script -----
on closeField
  get field "der"
  put the number of this card into cardNum
  set lockScreen to true
  push card
  go to card cardNum of stack "HyperCirc"
  put it into background field "Title"
  pop card
  set lockscreen to false
end closeField



-- part 52 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=134 top=156 right=171 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Vendor number
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 62 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=414 top=233 right=249 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Today's date


-- part 64 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=398 top=122 right=138 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ISBN
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 65 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=399 top=142 right=158 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LCCN
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 67 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=162 top=318 right=340 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  ask "Sort on which field?" with "Book Number"
  put it into fld
  if it is not empty then
    answer "Sort fields" with "Descending" or "Ascending"
    if it is "Ascending" then
      sort ascending by field fld
    else
      sort descending by field fld
    end if
  end if
end mouseUp



-- part 79 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=9 top=318 right=339 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Labels
----- HyperTalk script -----
on mouseUp
  goLab
end mouseUp



-- part 80 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=90 top=318 right=340 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Control
----- HyperTalk script -----
on mouseUp
  visual effect barn door close
  go to stack "Control"
end mouseUp



-- part 106 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=388 top=35 right=52 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Book Number
----- HyperTalk script -----
on closeField
  global fieldList,bookNumber,tentativeBook
  if tentativeBook is true then
    put field "Book Number" into bookNumber
  else

    put word 3 of name of me into tempName
    if not(fieldList contains tempName) then
      put (word 3 of name of me) & "," after fieldList
    end if
  end if
end closeField


-- part 108 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=226 top=301 right=318 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  ask "What do you wish to find?"
  find it
end mouseUp


-- part 109 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=141 top=175 right=197 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vendor Screen
----- HyperTalk script -----
on mouseUp
  put field "Vendor Number" into vendNum
  go to stack "Vendor"
  find vendNum in field "Vendor Number"
end mouseUp